home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Night Owl 6
/
Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso
/
027a
/
oclip.zip
/
ODEMO2.PRG
< prev
next >
Wrap
Text File
|
1991-10-15
|
449b
|
30 lines
#include "oclip.ch"
LOCAL o2 := Sample2():New("World")
o2:Hello()
RETURN
CLASS Sample1
VAR Who
METHOD New = Sample1New, Hello = Sample1Hello
ENDCLASS
FUNCTION Sample1New(cWho)
::Who := cWho
RETURN Self
FUNCTION Sample1Hello
? "Hello",::Who
RETURN Self
CLASS Sample2 FROM Sample1
METHOD Hello = Sample2Hello
ENDCLASS
FUNCTION Sample2Hello
::parent:Hello()
? "Greetings and salutations!"
RETURN Self